home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / picture credits (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  809 b   |  24 lines
  1. 10 poke53280,6:poke53281,6
  2. 20 print"[147]":a$="[212]he [199]azette [199]allery - [206]ovember 1990":gosub 220
  3. 30 a$="- [200]onored [193]rtists and [208]ictures -":gosub220:print
  4. 40 for ct=1 to 5:print:for ps=1 to 3
  5. 50 read a$
  6. 60 if ps=1 then b$=chr$(34)+a$+chr$(34)+" by "
  7. 70 if ps=2 then a$=b$+a$:gosub 220
  8. 80 if ps=3 then a$="[210]esiding in "+a$:gosub 220
  9. 90 next ps,ct
  10. 100 print:a$="*** [211]ubmit your entries to: ***":gosub220
  11. 110 a$="[199]azette [199]allery, [195]ompute [208]ublications,":gosub220
  12. 120 a$="324 [215]est [215]endover, [211]uite 200,":gosub220
  13. 130 a$="[199]reensboro, [206][195]  27408":gosub220
  14. 140 get a$:if a$="" then 140
  15. 150 end
  16. 160 data "[195]hoo [195]hoo","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
  17. 170 data "[206]atalie","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
  18. 180 data "[201]talian [199]arden","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
  19. 190 data "[208]irate","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
  20. 200 data "[211][208][193][218][207][218]","[202]ames [200]astings-[212]rew","[211]askatoon, [211]ask, [195]anada"
  21. 210 :
  22. 220 for x=1 to int(20-len(a$)/2):printchr$(32);:next:printa$
  23. 230 return
  24.